home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
imb9003.zip
/
FONTDRV.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-03-01
|
961b
|
44 lines
DECLARE SUB DspScreen ()
DECLARE SUB InpScreen ()
'$INCLUDE: 'e:\bc7\bin\t90feb\tfonts\FontScr.BI'
CLS
DspScreen
InpScreen
Pause "End of program...."
CLS
END
SUB DspScreen
CALL SetScreen(Blue, Cyan, 9)
TmsrFont$ = "e:\bc7\fonts\TmsrB.Fon"
CourFont$ = "e:\bc7\fonts\CourB.Fon"
Successful% = RegLoadFonts%(TmsrFont$, Tmsr24)
IF NOT Successful% THEN STOP
Res% = SetFont%(1, Blue)
CLen% = GCentered%(1, "Super Duper WONKA Graphics Screen")
Successful% = RegLoadFonts%(CourFont$, AllFonts%)
IF NOT Successful% THEN STOP
Res% = SetFont%(Cour12, RED)
Res% = GPLine%(5, 1, "Enter the following Information:")
LM% = 5
Res% = SetFont%(Cour10, Yellow)
Res% = GPLine%(8, LM%, "First Name [ ]")
Res% = GPLine%(8, Res% + 2, "Last Name [ ]")
END SUB
SUB InpScreen
a$ = GInput$(8, 17, 12)
b$ = GInput$(8, 43, 21)
END SUB